home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / bbs / QN07.lha / qnlog.dd < prev   
Text File  |  1998-02-12  |  4KB  |  76 lines
  1. /* Quick Note LogOn v0.7 Door for DDBBS --  by Xpose */
  2. Parse Arg node
  3. Options results
  4. nodeid="DREAMREXX"node
  5. address value nodeid
  6. tr = transmit
  7. MENU:
  8. tr " ";
  9. tr "--------------------------------------------------------------------------------"
  10. tr "- - - - - - - - - - - - - -| Quick Note Logon  v0.7 |- - - - - - - - - - - - - -"
  11. tr "--------------------------------------------------------------------------------"
  12. tr "                                                    "
  13. tr "  [>=-                       Check Out Public Notes                       -=<]"
  14. tr "                                                      "
  15. tr "  [>=-                       Read Comments to SysOp                       -=<]"
  16. tr "                                                      "
  17. tr "  [>=-                        Read Notes for SysOp                        -=<]"
  18. tr "                                                           "
  19. tr "  [>=-                             About QNL                              -=<]"
  20. tr "                                                        "
  21. tr "  [>=-                                QUIT                                -=<]"
  22. tr ""
  23. tr "--------------------------------------------------------------------------------"
  24. tr "- - - - - - - - - - - - - -| Quick Note Logon  v0.7 |- - - - - - - - - - - - - -"
  25. tr "--------------------------------------------------------------------------------"
  26. getchar
  27. if result = "p" then call PUBLIC
  28. if result = "c" then call COMMENTS
  29. if result = "n" then call NOTES
  30. if result = "a" then call ABout
  31. if result = "q" then shutdown
  32. call MENU
  33.  
  34. PUBLIC:
  35. tr " ";tr " Public messeges :> ";newline;newline
  36. sendany "DOORS:QN/PNOTES.DAT"
  37. getchar
  38. call MENU
  39.  
  40. COMMENTS:
  41. getuser 22; if result = "255" then call CLEAR1
  42. tr " ";tr " Sorry, but you are NOT the SysOp (or within access range) to view these comments .";getchar;call MENU
  43. CLEAR1:
  44. tr " "; tr " Here are the comments from the users your Royal Highness ."
  45. newline;newline
  46. sendany "DOORS:qn/comments.DAT"
  47.  
  48. getchar
  49. call MENU
  50.  
  51. NOTES:
  52. getuser 22; if result = "255" then call CLEAR2
  53. tr " ";tr " Sorry, but you are NOT the SysOp (or within access range) to view the notes .";getchar;call MENU
  54.  
  55. CLEAR2:
  56. tr " "; tr " Here are all the notes written to you, your Royal Highness .";newline;newline
  57. sendany "DOORS:qn/Snotes.DAT"
  58. getchar
  59. call MENU
  60.  
  61. ABOUT:
  62. tr " "
  63. tr "   __________________________________________________________________ "
  64. tr "  \                                                                  \"
  65. tr "   \    Quick Note LogOn door v0.7 for Daydream BBS w/ ARexx support  \"
  66. tr "    \   ~~~~~~~~~~~~~~~~       ( Included in the Quick Notes Archive ) \"
  67. tr "     \                                                                  \"
  68. tr "      \  Coding & Graphical Design by Xpose - Xpose1200@mailexcite.com - \"
  69. tr "       \                                                                  \"
  70. tr "        \  Special Thanx to : PSi, Enigma, Life, EXoTiC, Apple Miranda,    \"
  71. tr "         \                                                                  \"
  72. tr "          \                     My Amiga, Gateway2000, Phase5, and the rest! \"
  73. tr "           \__________________________________________________________________\"
  74. tr "             ";getchar;call MENU
  75.  
  76.